# Reproduce results of Figure 1 and results in Example 4.2
# R version 4.1.1 (2021-08-10)
#
# Data is from A. Mahajan (personal communication)

# Run bloometal2013.R for test decision